home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Games: 500 MB Amiga Software
/
500 MB Amiga Software - Euber 130 - Amiga Games Disc & Mag.iso
/
userbox
/
publicdomain
/
ro
/
arexx
/
archandler.ro
< prev
next >
Wrap
Text File
|
1995-05-13
|
677b
|
38 lines
/*
$VER: ArcHandler.RO 0.3
Author:
Oliver Rummeyer (oliver.rummeyer@student.uni-ulm.de)
Function:
Loads the ArcHandler equivalent directory of the active directory.
Requires:
RO 0.90 or newer
Example:
CUSTOMTYPE "#?.lha" "" "LHA/LZH Archive" "Rx >NIL: REXX:ArcHandler.RO %N %a"
*/
PARSE ARG FileName PortName
IF PortName="" THEN
PortName='RO.1'
ELSE
PortName=STRIP(PortName)
ADDRESS VALUE PortName
OPTIONS RESULTS
'Path Active'
IF RESULT="RESULT" THEN
EXIT 5
SourceDir=RESULT
Position=POS(":",SourceDir)
Directory='ARC:'||SUBSTR(SourceDir,1,Position-1)||'/'SUBSTR(SourceDir,Position+1)
'Load Active "'||Directory||FileName||'"'